home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
rkey14.zip
/
RKBRAND.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-07
|
1KB
|
46 lines
Program RkGenKey;
{
This is a sample program using rKey. It is a sample of a software
branding program that would be used by the user to enter their name
and registration key and create a key file. This sample will create
a key file for the RkSample program, using a registration key which
would be generated by the programmer using the RkGenKey program.
}
Uses
rKey;
Const
RkBrandVer = '1.3';
Var
n : String[36];
k : String[12];
Begin
OwnerCode := 'ArgleBarbWotsLeeb';
ProgramCode := 'RkSample Two';
KeyFileName := 'RKSAMPLE';
WriteLn('RkBrand v' + RkBrandVer);
WriteLn('Software Branding Program for RkSample v2.x');
WriteLn('(c) 1990 TrendSoft, Inc.');
WriteLn;
Write('Enter name of person to register : ');
ReadLn(n);
WriteLn;
Write('Enter registration key : ');
ReadLn(k);
WriteLn;
If Not ValidKey(n,k) then
WriteLn('Invalid registration key!')
Else Begin
Register(n,k);
WriteLn('RkSample now registered to ' + RegName);
End;
End.